home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 151 (1991-03-10)(Manewaldt, A.)(DE)(PD).zip / Taifun 151 (1991-03-10)(Manewaldt, A.)(DE)(PD).adf / Matheprogramme / Apfel_Julia / apfel.basic < prev    next >
Text File  |  1991-03-02  |  3KB  |  111 lines
  1. REM ***********************************************************************
  2. REM *** Apfel                            
  3. REM *** Apfelmännchen  (MandelbrotMenge)             
  4. REM *** (c) Mausbaer 09/87                           
  5. REM ***********************************************************************
  6.  
  7.    SCREEN 1,640,256,4,2
  8.    WINDOW 2,"Apfelmännchen                             MausBaer Software",,0,1
  9.    MOUSE ON : ON MOUSE GOSUB Start
  10.    PRINT "Das  Apfelmaennchen  wird gezeichnet. Das  kann  mitunter  recht"
  11.    PRINT "lange dauern. Das ganze Apfelmaennchen kriegt man mit"
  12.    PRINT " "
  13.    PRINT "  - pmin = -3.33"
  14.    PRINT "  - qmin = -1.5"
  15.    PRINT "  - Groesse = 5.15" 
  16.    PRINT "  - Tiefe = 100"
  17.    PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " "
  18.    PRINT "Ein HOCH auf die Königin der Wissenschaften, die MATHEMATIK !!!!!"
  19.    PRINT " ":PRINT " ":PRINT " ":PRINT " ":PRINT " "
  20.    PRINT "                                                     CLICK MOUSE"
  21.  
  22. Warten0:
  23.    GOTO Warten0:
  24.  
  25. Start:
  26.    WINDOW CLOSE 2 : SCREEN CLOSE 1
  27.    SCREEN 1,320,256,5,1
  28.    WINDOW 3,"Apfelmännchen       MausBaer Software",,0,1
  29.    GOSUB Farbtafel
  30.    CLS
  31.    a=320:b=256:m!=100
  32.    
  33. Step0:
  34.    PRINT"Linke untere Ecke"
  35.    INPUT"Reelle Koordinate    :";pmin!  
  36.    INPUT"Imaginäre Koordinate :";qmin!
  37.    INPUT"Ausschnittgröße      :";groesse!
  38.    INPUT"Tiefe                :";m!
  39.    INPUT"Schrittweite         :";schritt 
  40.    pmax!=pmin! + groesse!
  41.    qmax!=qmin! + groesse * (256/320) 
  42.     
  43.    dp!=(pmax!-pmin!)/(a-1)
  44.    dq!=(qmax!-qmin!)/(b-1)
  45.    p0!=0:q0!=0:k=0:x0!=0:y0!=0:x1!=0:y1!=0:r!=0
  46.    
  47.    FOR np = 0 TO a-1 STEP schritt
  48.      FOR nq = 0 TO b-1 STEP 1
  49. Step1:     
  50.        p0! = pmin! + np * dp!
  51.        q0! = qmin! + nq * dq! 
  52.        k = 0 : x0! = 0 : y0! = 0
  53. Step2:       
  54.        x1! = x0!*x0! - y0!*y0! + p0!
  55.        y1! = 2 * x0! * y0! + q0!
  56.        k = k + 1
  57. Step3:       
  58.        r! = x1!*x1! + y1!*y1!
  59.        x0! = x1!
  60.        y0! = y1!
  61.        IF r! > m! THEN GOTO Step4
  62.        IF k = 31 THEN k = 0:GOTO Step4
  63.        GOTO Step2
  64. Step4:       
  65.        PSET (np,nq),k
  66.      NEXT nq
  67.    NEXT np
  68.    
  69. Warten:
  70.    GOTO Warten
  71.    
  72. Farbtafel:
  73.   PALETTE 0,0,0,0        'schwarz
  74.   PALETTE 1,.8,0,0       'braunrot
  75.   PALETTE 2,1,0,0        'dunkelrot
  76.   PALETTE 3,.93,.2,0     'feuerwehrrot
  77.   PALETTE 4,1,.4,0       'hellrot
  78.   PALETTE 5,1,.6,0       'rotbraun
  79.   PALETTE 6,1,.8,0       'sand
  80.   PALETTE 7,1,1,0        'gelb
  81.   PALETTE 8,.6,1,.13     'giftgruen
  82.   PALETTE 9,.53,.8,.13   'gruen
  83.   PALETTE 10,.4,.6,0     'dunkelgruen
  84.   PALETTE 11,.2,.4,0     'olivgruen
  85.   PALETTE 12,0,.4,0      'schwarzgruen
  86.   PALETTE 13,0,.6,.67    'graugruen
  87.   PALETTE 14,0,.8,.6     'mittelgruen
  88.   PALETTE 15,0,1,.6      'hellgruen
  89.   PALETTE 16,.2,1,.93    'hellblau
  90.   PALETTE 17,.2,.73,1    'blau
  91.   PALETTE 18,.13,.4,1    'dunkelblau 1
  92.   PALETTE 19,.4,0,1      'dunkelblau 2
  93.   PALETTE 20,0,0,.6      'schwarzblau
  94.   PALETTE 21,.33,.13,.87 'nachtblau
  95.   PALETTE 22,.6,.2,1     'blaulila
  96.   PALETTE 23,1,0,1       'lila
  97.   PALETTE 24,.93,.53,.73 'dunkellila
  98.   PALETTE 25,1,.73,.73   'braunlila
  99.   PALETTE 26,.8,.53,.47  'braun
  100.   PALETTE 27,.6,.4,.33   'dunkelbraun
  101.   PALETTE 28,.4,.2,0     'braungrau
  102.   PALETTE 29,.4,.4,.4    'dunkelgrau
  103.   PALETTE 30,.6,.6,.6    'mittelgrau
  104.   PALETTE 31,1,1,1       'weiss
  105. RETURN
  106.  
  107.  
  108.  
  109.  
  110.                 
  111.